

package TagServer::Control;


#UML_MODELER_BEGIN_PERSONAL_VARS_Control

#UML_MODELER_END_PERSONAL_VARS_Control

use TagServer::iServer;
use TagClient::iView;
use TagServer::iModel;

use base qw( TagServer::iServer );



=head1 CONTROL



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 onEvt

   Parameters :
      evt : $ : The event
      what : $ : what to do

   Return : 
      %

   Description : 
      Do what in that event. Returns the iModel and iView instances.

=cut

sub onEvt
{
  my($self,
     $evt, # $ : The event
     $what, # $ : what to do
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_onEvt
#UML_MODELER_END_PERSONAL_CODE_onEvt
}


=pod 

=head3 new

   Parameters :
      evt : $ : the event to dispatch
      what : $ : what to dispatch

   Return : 
      

   Description : 
      The constructor

=cut

sub new
{
  my($self,
     $evt, # $ : the event to dispatch
     $what, # $ : what to dispatch
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_new
#UML_MODELER_END_PERSONAL_CODE_new
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
